home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 71 / MOBICLIC 71.ISO / mac / DATA / COMMUN / temp0001 / 00295_Script_ENTREE_COMPLETE < prev    next >
Text File  |  2004-12-05  |  2KB  |  48 lines
  1. global gze_Label
  2. property pnom_son,pFlag_coupeMusik,pFlag_son,pFlag_titre,p_titre,p_pisteson
  3. -----------------
  4. on getPropertyDescriptionList me
  5.   L = ["pasde son","son rub (n░ =label)","nom son = label","autre"]
  6.   L2 = [2,3,4,5,6,7,8]
  7.   return [#pFlag_son:[#comment: "son α jouer:",#format:#STRING,#range:L,#default: "son rub (n░ =label)" ],\
  8. #pnom_son:[#comment: "nom son si autre:",#format:#STRING,#default: EMPTY ],\
  9. #p_pisteson:[#comment: "piste son:",#format:#integer,#range:L2,#default: 3 ],\
  10.   #pFlag_coupeMusik:[#comment: "couper la musique?",#format:  #boolean, #default:FALSE ],\
  11. #pFlag_titre:[#comment: "titre :",#format:#STRING,#range:["titre local","laisser titre existant","pas de titre ou effacer le titre"], #default: "titre local"],\
  12. p_titre:[#comment: "libellΘ du titre si non bitmap :",#format:#STRING, #default: EMPTY]]
  13. end getPropertyDescriptionList
  14. ---------------------
  15. on prepareFrame me
  16.   cursor -1
  17.   gze_Label = the frameLabel
  18. end
  19. ----------------
  20. on exitFrame me
  21.   if pFlag_coupeMusik then
  22.     coupeson(1)
  23.     niveauSon()
  24.   end if
  25.   
  26.   case(pFlag_son) of
  27.     "pasde son":
  28.       nothing
  29.     "son rub (n░ =label)":
  30.       sonrub(gze_Label,p_pisteson)
  31.     "nom son = label":
  32.       joueson(gze_Label,p_pisteson)
  33.     "autre": 
  34.       joueson(pnom_son,p_pisteson)
  35.   end case
  36.   case(pFlag_titre) of
  37.     "titre local":
  38.       titre(p_titre)
  39.     "laisser titre existant":
  40.       nothing
  41.     "pas de titre ou effacer le titre":
  42.       titre(0)
  43.   end case
  44.   
  45.   
  46. end
  47. --------------
  48.